home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.bin / More Information / QuickMail / Installer Resources / Scripts / MCIMail.Script.v2.03 < prev    next >
Text File  |  1992-03-20  |  4KB  |  162 lines
  1. * MCI Mail Script, for QuickMail™
  2. * Copyright © 1988-92 CE Software, Inc.
  3. *
  4. * Title: MCIMail.Script.v2.05
  5. * Version: 2.05
  6. * Modification Date: 92/03/18
  7. * 
  8. * NOTE: The filename of this script does not accurately reflect the version
  9. * number of the script.  It was not updated due to the complications it would cause
  10. * in the QuickMail v2.5.1 update process.  This problem will be corrected in a future 
  11. * version of QuickMail.
  12. * 
  13. * Modification History:
  14. * • 2.05    92/03/18    Some TYPE commands did not have ^X following them to
  15. *                        purge MCI's input buffer of potential line noise before
  16. *                        sending a command.  Added ^X's all over the place.
  17. *
  18. *                        Removed comment that this script logged in via Tymnet.
  19. *                        It does not -- it is designed for use with MCI's 
  20. *                        direct-dial numbers.
  21. *
  22. * • 2.04 - 2/24/92:Changed IN routine to pause longer due to MNP handshakes.
  23. * make sure to set you  Data Bits to 8, Stop Bits at 1, and parity to None in the
  24. * Connection dialog.
  25. *
  26. * • 2.03 - 6/12/91: Added EMS messaging capabilities.  This allows users to SEND to    
  27. * FAX machines, or TELEX.  Does not support replying to RECEIVED of EMS messages
  28. *
  29. * NOTE:  This script can also RECEIVE messages that originated on services
  30. * other than MCI Mail, but since their return-addresses take up more than one
  31. * line, we cannot properly extract the return address.   You will need to MANUALLY
  32. * re-address messages like this when you reply, otherwise your reply will be 
  33. * rejected by MCI Mail.
  34. *
  35. * • 2.02 - 4/11/89: Formating and Name Changes.  Tested OK.
  36. *
  37. * • 1.07 - 3/1/89: Revised to reflect recent changes to MCI Mail.
  38. *                  All users now call 1-800-456-6245 to access MCI Mail
  39. *
  40. * • 1.05 - 12/8/88: by Bill Davis and Dave Loverink of CE Software to
  41. * account for bad or missing addresses and drafts. Changed each TYPE command
  42. * to start  with a ^X, which erases everything typed on the line to that 
  43. * point; this may help reduce line noise problems. MCI Mail responds by typing 
  44. * “XXX” and either waiting for you to re-enter the line or by redisplaying the 
  45. * prompt.  
  46. *
  47. *
  48. * NOTES:
  49. *
  50. * This is a simple script to log onto MCI Mail.
  51. *
  52. * Since MCI Mail does not support XMODEM binary file transfer, this script
  53. * doesn't either.  therefore if you send a message with an enclosure
  54. * to MCI Mail, the enclosure will NOT be sent.  The message the enclosure was
  55. * attached to WILL be sent.
  56. *
  57. *
  58. * This is called to log us into MCI Mail
  59. *
  60. :IN
  61. OOPS 30,FAILURE
  62. PAUSE 8
  63. TYPE ^M
  64. WAIT user name:
  65. TYPE ^X«LOGID»^M
  66. WAIT Password:
  67. TYPE ^X«PASSWORD»^M
  68. NOTMAIL no messages waiting
  69. WAIT Command:
  70. TYPE ^Xaccount^M
  71. WAIT Yes or No:
  72. TYPE ^Xno^M
  73. WAIT change:
  74. TYPE ^Xpage^M
  75. WAIT depth:
  76. TYPE ^X100^M
  77. WAIT change:
  78. TYPE ^Xterm^M
  79. TYPE ^XPAPER^M
  80. WAIT change
  81. TYPE ^X^M
  82. WAIT or TEMPorary:
  83. TYPE ^XPERM^M
  84. WAIT Command:
  85. SUCCESS
  86. *
  87. * This is called to send one piece of mail
  88. *
  89. :SEND
  90. OOPS 60,FAILURE
  91. TYPE ^XCreate^M
  92. WAIT TO:
  93. TYPE ^X/UPLOAD ON^M
  94. PAUSE 1
  95. TYPE ^X«ADDRESS»^M
  96. TYPE ^X/UPLOAD OFF^M
  97. * 5 Alerts added 10/23/90 to account for bad, blank or missing addresses
  98. ALERT 11,S1,There must be
  99. ALERT 12,S1,in the TO field
  100. ALERT 13,S2,not found in
  101. ALERT 14,S2,EMS Delivery
  102. ALERT 15,S2,during this session.
  103. * end of 12/8/88 changes
  104. WAIT TO:
  105. TYPE ^X^M
  106. WAIT CC:
  107. TYPE ^X^M
  108. WAIT Subject:
  109. TYPE ^X^M
  110. WAIT to end.)
  111. TYPE ^XAttn: «NAME»^M
  112. DUMP ^J
  113. TYPE ^X/^M
  114. WAIT Handling:
  115. TYPE ^X^M
  116. WAIT Send?
  117. TYPE ^XY^M
  118. WAIT Command:
  119. SUCCESS
  120. * 
  121. :S1
  122. ERRORINADDRESS
  123. WAIT TO:
  124. TYPE ^X/^M
  125. WAIT Command:
  126. SUCCESS
  127. *
  128. :S2
  129. ERRORINADDRESS
  130. *This will allow a bad address to be kicked out to the mailcenter custodian
  131. TYPE ^X/^M
  132. WAIT Command:
  133. SUCCESS
  134. *
  135. * This is called to receive mail.  It is called continually with increasing
  136. * values in «COUNT», until FAILURE occurs.  You can put all reads into one
  137. * listing, if you wish
  138. *
  139. :RECEIVE
  140. OOPS 60,FAILURE
  141. TYPE ^XRead Inbox^M
  142. ALERT 2,R10,Your INBOX is empty.
  143. :R1
  144. ALERT 1,R10,Your READ request is now complete.
  145. WAIT ^M
  146. BUFFER Command:
  147. ALERT 2,,
  148. RECEIVE Subject:,Attn:,From:,/ MCI ID: ,
  149. TYPE ^XNext^M
  150. GOTO R1
  151. :R10
  152. WAIT Command:
  153. FAILURE
  154. *
  155. * This logs us off MCI Mail
  156. *
  157. :BYE
  158. TYPE ^XEXIT^M
  159. ALERT 1,SUCCESS,log in:
  160. PAUSE 10
  161. SUCCESS
  162. *